program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  x,y : integer;
  count : integer;
begin
  count := 9;
  for x := 1 to count do
    begin
    for y := 1 to x do
      write(IntToStr(y) + '*' + IntToStr(x) + '=' + IntToStr(x*y) + #9);
    write(#10);
    end;
  read(x);
end.
